home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Unreleased / (c)sd.d64 / priority bars (.txt) < prev    next >
Commodore BASIC  |  2009-02-04  |  3KB  |  177 lines
  1. 10 POKE 52,48:POKE53,0:POKE54,48:POKE 56,48:CLR
  2. 20 V=53248
  3. 30 POKEV+32,2:POKEV+33,1
  4. 35 POKEV+23,7: POKE V+29,7: POKE V+27,0
  5. 40 PT=2040: SD=12288
  6. 50 GOSUB9000
  7. 60 PRINT"[147]"
  8. 100 POKE V+0,160: POKE V+1,125
  9. 110 POKE PT,192: POKE V+39,3
  10. 120 POKE V+21,1
  11. 130 POKE V+2,24: POKE V+3,125
  12. 135 POKE PT+1,193: POKE V+40,0
  13. 140 POKE V+21,3
  14. 150 SX=V+2: GOSUB 7000
  15. 160 GOSUB 8000
  16. 170 GOSUB 7500
  17. 180 GOSUB 8000
  18. 190 POKE V+21,0
  19. 200 POKE V+0,24: POKE V+1,125
  20. 210 POKE PT,193: POKE V+39,0
  21. 220 POKE V+21,2
  22. 230 POKE V+2,160: POKE V+3,125
  23. 240 POKE PT+1,192: POKE V+40,3
  24. 250 POKE V+21,3
  25. 260 SX=V+0: GOSUB 7000
  26. 270 GOSUB 8000
  27. 280 GOSUB 7500
  28. 290 GOSUB 8000
  29. 300 POKEV+21,0
  30. 310 POKE PT+0,194:POKEV+39,3:POKE V+0,160: POKE V+1,125
  31. 320 POKE PT+2,195:POKEV+41,3:POKE V+4,160: POKE V+5,125
  32. 325 POKEV+21,5
  33. 330 POKE PT+1,193:POKEV+40,0:POKE V+2,24:POKE V+3,125
  34. 335 POKEV+21,7
  35. 340 SX=V+2: GOSUB 7000
  36. 350 GOSUB 8000
  37. 360 GOSUB 7500
  38. 370 GOSUB 8000
  39. 400 POKEPT,195:POKEPT+2,194
  40. 410 GOSUB7000:GOSUB8000
  41. 420 GOSUB7500:GOSUB8000
  42. 500 POKE V+21,0
  43. 510 POKE V+0,24: POKE V+4,24
  44. 520 PRINT"[147][144]SOME CHARACTERS: [211] [156][209] [144][193] [191] [129]$ [144][215]"
  45. 530 POKEV+21,5
  46. 540 GOSUB6000:GOSUB8000
  47. 550 GOSUB6500:GOSUB8000
  48. 560 POKE V+27,4
  49. 570 GOSUB6000:GOSUB8000
  50. 580 GOSUB6500:GOSUB8000
  51. 590 STOP
  52. 6000 REM MOVE TWO SPRITES
  53. 6010 FORX=24TO255
  54. 6020 :POKEV+0,X:POKEV+4,X
  55. 6030 :GETT$:IFT$=""THEN6050
  56. 6040 :GOSUB8000
  57. 6050 NEXT X
  58. 6060 RETURN
  59. 6500 REM MOVE TWO SPRITES
  60. 6510 FORX=255TO24STEP-1
  61. 6520 :POKEV+0,X:POKEV+4,X
  62. 6530 :GETT$:IFT$=""THEN6550
  63. 6540 :GOSUB8000
  64. 6550 NEXT X
  65. 6560 RETURN
  66. 7000 REM MOVE SPRITE L TO R
  67. 7010 FOR X=24 TO 255
  68. 7020 :POKE SX,X
  69. 7025 GETT$:IFT$=""THEN7030
  70. 7026 GOSUB8000
  71. 7030 NEXT X
  72. 7040 RETURN
  73. 7500 REM MOVE SPRITE R TO L
  74. 7510 FOR X=255 TO 24 STEP -1
  75. 7520 :POKE SX,X
  76. 7525 GETT$:IFT$=""THEN7030
  77. 7526 GOSUB8000
  78. 7530 NEXT X
  79. 7540 RETURN
  80. 8000 GETT$:IFT$=""THEN8000
  81. 8010 RETURN
  82. 8999 END
  83. 9000 REM READ IN SPRITE DEFS
  84. 9010 FOR I=0 TO 3
  85. 9020 :FOR J=0 TO 62
  86. 9030 ::READ X
  87. 9040 ::POKE SD+I*64+J,X
  88. 9050 :NEXT J
  89. 9060 NEXT I
  90. 9070 RETURN
  91. 10000 REM SPRITE DEFINITIONS
  92. 10010 DATA 240,240,240
  93. 10020 DATA 240,240,240
  94. 10030 DATA 240,240,240
  95. 10040 DATA 240,240,240
  96. 10050 DATA 240,240,240
  97. 10060 DATA 240,240,240
  98. 10070 DATA 240,240,240
  99. 10080 DATA 240,240,240
  100. 10090 DATA 240,240,240
  101. 10100 DATA 240,240,240
  102. 10110 DATA 240,240,240
  103. 10120 DATA 240,240,240
  104. 10130 DATA 240,240,240
  105. 10140 DATA 240,240,240
  106. 10150 DATA 240,240,240
  107. 10160 DATA 240,240,240
  108. 10170 DATA 240,240,240
  109. 10180 DATA 240,240,240
  110. 10190 DATA 240,240,240
  111. 10200 DATA 240,240,240
  112. 10210 DATA 240,240,240
  113. 10500 REM
  114. 10520 DATA 0,0,0
  115. 10530 DATA 0,0,0
  116. 10540 DATA 0,0,0
  117. 10550 DATA 255,255,255
  118. 10560 DATA 255,255,255
  119. 10570 DATA 255,255,255
  120. 10580 DATA 0,0,0
  121. 10590 DATA 0,0,0
  122. 10600 DATA 0,0,0
  123. 10610 DATA 255,255,255
  124. 10620 DATA 255,255,255
  125. 10630 DATA 255,255,255
  126. 10640 DATA 0,0,0
  127. 10650 DATA 0,0,0
  128. 10660 DATA 0,0,0
  129. 10670 DATA 255,255,255
  130. 10680 DATA 255,255,255
  131. 10690 DATA 255,255,255
  132. 10700 DATA 0,0,0
  133. 10710 DATA 0,0,0
  134. 10720 DATA 0,0,0
  135. 11000 DATA 240,0,240
  136. 11010 DATA 240,0,240
  137. 11020 DATA 240,0,240
  138. 11030 DATA 240,0,240
  139. 11040 DATA 240,0,240
  140. 11050 DATA 240,0,240
  141. 11060 DATA 240,0,240
  142. 11070 DATA 240,0,240
  143. 11080 DATA 240,0,240
  144. 11090 DATA 240,0,240
  145. 11100 DATA 240,0,240
  146. 11110 DATA 240,0,240
  147. 11120 DATA 240,0,240
  148. 11130 DATA 240,0,240
  149. 11140 DATA 240,0,240
  150. 11150 DATA 240,0,240
  151. 11160 DATA 240,0,240
  152. 11170 DATA 240,0,240
  153. 11180 DATA 240,0,240
  154. 11190 DATA 240,0,240
  155. 11200 DATA 240,0,240
  156. 11500 DATA 0,240,0
  157. 11510 DATA 0,240,0
  158. 11520 DATA 0,240,0
  159. 11530 DATA 0,240,0
  160. 11540 DATA 0,240,0
  161. 11550 DATA 0,240,0
  162. 11560 DATA 0,240,0
  163. 11570 DATA 0,240,0
  164. 11580 DATA 0,240,0
  165. 11590 DATA 0,240,0
  166. 11600 DATA 0,240,0
  167. 11610 DATA 0,240,0
  168. 11620 DATA 0,240,0
  169. 11630 DATA 0,240,0
  170. 11640 DATA 0,240,0
  171. 11650 DATA 0,240,0
  172. 11660 DATA 0,240,0
  173. 11670 DATA 0,240,0
  174. 11680 DATA 0,240,0
  175. 11690 DATA 0,240,0
  176. 11700 DATA 0,240,0
  177.